home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tq.d64 / culture club.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  53 lines
  1. 2 PRINTCHR$(14):PRINTCHR$(8):Q=PEEK(186)
  2. 5 POKE53280,0:POKE53281,0:GOSUB1000
  3. 10 IFA=0THENA=1:LOAD"CHAMELEON.D",Q,Q
  4. 20 CLR
  5. 25 SYS30120:PRINT""
  6. 30 B$=""
  7. 40 READA$,Z:IFA$="QWERTY"THEN200
  8. 50 PRINTB$:PRINTA$
  9. 60 FORY=1TOZ:NEXTY
  10. 70 GOTO40
  11. 100 DATA"                                        ",9000
  12. 101 DATA"[196]ESERT LOVING IN YOUR EYES  ALL THE WAY",3500
  13. 102 DATA"[201]F [201] LISTEN TO YOUR LIES  WOULD YOU SAY",4400
  14. 103 DATA"[201]'M A MAN....   WITHOUT CONVICTION...  ",3800
  15. 104 DATA"[201]'M A MAN....   WHO DOESN'T  KNOW...   ",4000
  16. 105 DATA"[200]OW TO SELL....   A CONTRADICTION....  ",3800
  17. 106 DATA"[217]OU COME AND GO...  YOU COME AND GO....",4500
  18. 107 DATA"[203]ARMA KARMA KARMA KARMA  [203]ARMACHAMELEON",3500
  19. 108 DATA"[217]OU COME AND GO...  YOU COME AND GO.....",4200
  20. 109 DATA"[204]OVING WOULD BE EASY IF YOUR COLOURS         WERE LIKE MY DREAM...."
  21. 110 DATA3500
  22. 111 DATA"[210]ED GOLD AND GREEN... RED GOLD AND GREEN                           "
  23. 112 DATA4000
  24. 113 DATA"....... [200]EAR YOUR WICKED WORDS EVERY DAY",3500
  25. 114 DATA"AND YOU USED TO BE SO SWEET....               [201] HEARD YOU SAY...",4000
  26. 115 DATA"[212]HAT MY LOVE....   WAS AN ADDICTION....                         ",4000
  27. 116 DATA"[215]HEN WE CLING....  OUR LOVE IS STRONG...",4000
  28. 117 DATA"[215]HEN YOU GO... YOU'RE GONE FOREVER...   ",4000
  29. 118 DATA"[217]OU STRING ALONG... YOU STRING ALONG... ",4200
  30. 119 DATA"[203]ARMA KARMA KARMA KARMA  [203]ARMACHAMELEON ",3500
  31. 120 DATA"[217]OU COME AND GO...  YOU COME AND GO.....",4300
  32. 121 DATA"[204]OVING WOULD BE EASY IF YOUR COLOURS         WERE LIKE MY DREAM...."
  33. 122 DATA3600
  34. 123 DATA"[210]ED GOLD AND GREEN... RED GOLD AND GREEN                             "
  35. 124 DATA4300
  36. 125 DATA"[197]VERY DAY.... IS LIKE SURVIVAL...       ",4000
  37. 126 DATA"[217]OU'RE MY LOVER... NOT MY RIVAL.....    ",4500
  38. 127 DATA"[197]VERY DAY.... IS LIKE SURVIVAL......    ",4000
  39. 128 DATA"[217]OU'RE MY LOVER... NOT MY RIVAL....     ",4500
  40. 129 DATA"                                        ",60000
  41. 199 DATA"QWERTY",0
  42. 200 POKE29965+1079,4
  43. 210 PRINTB$;"[196]O YOU WISH TO LISTEN AGAIN(Y/N)"
  44. 220 GET X$:IFX$=""THEN220
  45. 230 IFX$="Y"THENRUN20
  46. 240 IFX$="N"THENPRINTB$;"[207].[203]. [194]ACK TO BASIC... ":FORD=1TO5000:NEXT:SYS64738
  47. 250 GOTO220
  48. 1000 PRINT"[147][159]            [203]ARMA [195]HAMELEON"
  49. 1010 PRINT"                   BY"
  50. 1020 PRINT"            [212]HE [195]ULTURE [195]LUB"
  51. 1050 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  52. 1060 RETURN
  53.